home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ IE Options 7.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.4 KB  |  94 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Appearance Options #2"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.20"
  8. "TEXT 1"="Show "Favorites" menu"
  9. "TEXT 2"="Use IntelliMenus for "Favorites" menu"
  10. "TEXT 3"="Show right-click HTML menu"
  11. "TEXT 4"="Enable "Theater Mode" (F11)"
  12. "TEXT 5"="Enable "Internet Options" menu"
  13. "DESCRIPTION 1"="Some appearance settings of Internet Explorer you might consider changing."
  14. "DESCRIPTION 2"="NOTE: Option #2 will only work with Windows 2000."
  15. "DESCRIPTION 3"="NOTE: Option #5 will also disable the "Internet" applet inside Control Panel."
  16. "AUTHOR"="Xteq Systems and Sebastien Maurice"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. 'All DW
  22. sV1="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFavorites"
  23. sV2="HKCU\Software\Microsoft\Internet Explorer\Main\FavIntelliMenus"
  24. sV3="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu"
  25. sV4="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoTheaterMode"
  26. sV5="HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions"
  27.  
  28.  
  29.  
  30. 'Called when the Plugin is started
  31. SUB Plugin_Initialize  
  32.  Call Rd(1,sV1)
  33.  
  34.  s=RegReadValue(sV2)
  35.  if s="yes" or IsEmpty(s) then
  36.     SetUIElement 2,true
  37.  end if
  38.  
  39.  Call Rd(3,sV3)
  40.  Call Rd(4,sV4)
  41.  Call Rd(5,sV5)
  42. END SUB
  43.  
  44. 'Called when the Plugin should validate the Data the user has entered
  45. SUB Plugin_CheckData(ElementIndex)
  46. END SUB
  47.  
  48. 'Called when the Plugin should apply the changes
  49. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  Call Wrt(1,sV1)
  51.  
  52.  if GetUIElement(2)=true then
  53.     Call RegWriteValue(sV2,"yes",1)
  54.  else
  55.     Call RegWriteValue(sV2,"no",1)
  56.  end if
  57.  
  58.  
  59.  Call Wrt(3,sV3)
  60.  Call Wrt(4,sV4)
  61.  Call Wrt(5,sV5)
  62. END SUB
  63.  
  64. Sub Wrt(ITM,VAL)
  65.  b=GetUIElement(ITM)
  66.  if b=false then
  67.     Call RegWriteValue(VAL,1,2)
  68.     Call Restart()
  69.  else
  70.     s=RegReadValue(VAL)
  71.     if IsEmpty(s)=false then
  72.        Call RegDeleteValue(VAL)
  73.        Call Restart()
  74.     end if
  75.  end if
  76. end sub
  77.  
  78. Sub Rd(ITM,VAL)
  79.  i=RegReadValue(VAL)
  80.  if IsEmpty(i) then
  81.     SetUIElement ITM,true
  82.  else
  83.     if i<>1 then     
  84.        SetUIElement ITM,true
  85.     end if
  86.  end if
  87. end sub
  88.  
  89.  
  90. 'Called when the Plugin is about to be removed from memory
  91. SUB Plugin_Terminate
  92. END SUB
  93.  
  94.